home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Developers / SW Demo / Demo Source / ErrMsg.c < prev    next >
Encoding:
Text File  |  1994-10-07  |  2.6 KB  |  90 lines  |  [TEXT/MPCC]
  1. // ----------------------------------------------------------------------------------
  2. // ErrMsg.c
  3. // ----------------------------------------------------------------------------------
  4. // Deals with errors.  Right now it merely puts up an alert box with the error.
  5. //
  6. // ----------------------------------------------------------------------------------
  7. // History:
  8. //    9/26/94        Clark Goble    Original (based on a project by Brigham Stevens)
  9. //
  10.  
  11. #define KEEP_GOING 1
  12. #define DEBUGGER 2
  13. #define EXITTOSHELL 3
  14.  
  15.  
  16. void Msg(Str255 msg);
  17. void ErrMsgCode(Str255 msg, short code);
  18. void ErrMsg(Str255 msg);
  19.  
  20.  
  21. // ----------------------------------------------------------------------------------
  22. // Msg
  23. // ----------------------------------------------------------------------------------
  24. // Displays a message in an alert box.  This is a different alert window than that
  25. // used for errors.
  26.  
  27. void Msg(Str255 msg)
  28. {
  29.     ParamText(msg,nil,nil,nil);
  30.     Alert(130, nil);
  31. } // Msg
  32.  
  33. // ----------------------------------------------------------------------------------
  34. // ErrMsgCode
  35. // ----------------------------------------------------------------------------------
  36. // Displays the error alert with an error code.  This will also display memerr and
  37. // reserr for you.
  38. //
  39. // This demo is copywrite 1994 by LexTek Internation.  Feel free to use it for
  40. // whatever purpose you wish.  The SpellWright Library may not be copied or 
  41. // distributed, except when linked to your application that adds significant features
  42. // to the code.  ie. you can't take the library, make a new library and sell it.  You
  43. // can, however, use it without royalties in applications or other such projects.
  44. //
  45. // LexTek International
  46. // 2255 N. University Parkway, Suit 15
  47. // Provo, UT 84604
  48. // (801) 375.8332  Phone
  49. // (801) 375.7654  Fax 
  50.  
  51. void ErrMsgCode(Str255 msg, short code)
  52. { 
  53.     Str31    codeStr;
  54.     Str31    memErrStr;
  55.     Str31    resErrStr;
  56.     short    disposition;
  57.     
  58.     NumToString(code,codeStr);
  59.     NumToString(LMGetMemErr(),memErrStr);
  60.     NumToString(LMGetResErr(),resErrStr);
  61.     
  62.     ParamText(msg, codeStr, memErrStr, resErrStr);
  63.  
  64.     disposition = Alert(128, nil);
  65.     
  66.     switch(disposition)
  67.     {
  68.         case    KEEP_GOING:        return;
  69.                                 break;
  70.         case    DEBUGGER:        DebugStr("\p Doing a Stack Crawl;sc6");
  71.                                 break;
  72.         case    EXITTOSHELL:    ExitToShell();
  73.                                 break;
  74.     } // switch
  75. } // ErrMsgCode
  76.  
  77.  
  78. // ----------------------------------------------------------------------------------
  79. // ErrMsg
  80. // ----------------------------------------------------------------------------------
  81. // Displays the error alert without a code.
  82.  
  83. void ErrMsg(Str255 msg)
  84.  
  85. {
  86.     ErrMsgCode(msg, 0);
  87.     
  88. } // ErrMsg
  89.  
  90.